#!
$_ = "tEsT";
print "matched\n" if (/test/i);
$_ = "<dog><pig><cat><elephant><lion><tiger>";
@animals = /<(.*?)>/g;  # lazy match
print join "\n",@animals;
